/* FOR EACH ptp_det EXCLUSIVE-LOCK WHERE ptp_pm_code = "M" AND (ptp_part BEGINS "914") AND ptp_site = "500",   */
/*     EACH pt_mstr NO-LOCK WHERE pt_part = ptp_part :                                                         */
/*       ASSIGN ptp__chr01 = "C".                                                                              */
/* /*      ASSIGN ptp__dec01 = 0.17. */                                                                        */
/* /*      ASSIGN ptp__dec02 = 0.17. */                                                                        */
/*     DISP ptp_part ptp_site ptp_pm_code ptp__dec01 ptp__dec02 ptp__chr01 pt_pm_code pt_desc1 WITH WIDTH 200. */
/* END.                                                                                                        */
OUTPUT TO PRINTER PAGE-SIZE 66.
FOR EACH pt_mstr NO-LOCK WHERE pt_pm_code = "p" :
    FIND FIRST ptp_det WHERE ptp_part = pt_part AND ptp__chr01 = "c" NO-LOCK NO-ERROR.
    IF NOT AVAILABLE ptp_det THEN
       DISP pt_part pt_pm_code pt_part_type pt_status pt_added pt_desc1  WITH WIDTH 200.
END.
